home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu426.dms / pu426.adf / DOSCOPY < prev    next >
Text File  |  1992-06-07  |  324b  |  16 lines
  1. *
  2. * PCL DosCopy Fast Copier...
  3. * (c)1992 BSI Labs
  4. *
  5. cpytitla:dc.b "Lockpick Fast Copier Request",0
  6. cpyquesa:dc.b "Copy any more disks?",0
  7.  
  8. connect=drives()
  9. cmp connect,-1,0,goto fini
  10.  
  11. nextdisk:returnvar=fcopy(connect,-1)
  12. cmp returnvar,0,-1,goto fini
  13. docopy=simplereq(cpytitla,cpyquesa)
  14. cmp docopy,0,1,goto nextdisk
  15. fini:end
  16.